home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc1_2_x / stabilzr.sit / The Stabilizer / card_15535.txt < prev    next >
Text File  |  1989-02-05  |  10KB  |  436 lines

  1. -- card: 15535 from stack: in
  2. -- bmap block id: 16571
  3. -- flags: 4000
  4. -- background id: 2175
  5. -- name: HelpIndex
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   hide menuBar
  9.   if the visible of card field "Menu" is true then hide card field "Menu"
  10. end closeCard
  11.  
  12. on mouseUp
  13.   if the visible of card field "Menu" is true then hide card field "Menu"
  14. end mouseUp
  15.  
  16.  
  17. -- part 1 (button)
  18. -- low flags: 00
  19. -- high flags: A002
  20. -- rect: left=26 top=14 right=64 bottom=64
  21. -- title width / last selected line: 0
  22. -- icon id / first selected line: 11030 / 11030
  23. -- text alignment: 1
  24. -- font id: 0
  25. -- text size: 12
  26. -- style flags: 0
  27. -- line height: 16
  28. -- part name: Home
  29. ----- HyperTalk script -----
  30. on mouseUp
  31.   visual barn door close slowly to gray
  32.   visual dissolve
  33.   go stack "Home"
  34. end mouseUp
  35.  
  36.  
  37.  
  38. -- part 2 (button)
  39. -- low flags: 00
  40. -- high flags: A002
  41. -- rect: left=56 top=87 right=107 bottom=222
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 1
  45. -- font id: 0
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: About The Stabilizer
  50. ----- HyperTalk script -----
  51. on mouseUp
  52.   get word 1 of the short name of the target
  53.   visual venetian blinds to gray
  54.   visual venetian blinds
  55.   go card it
  56. end mouseUp
  57.  
  58.  
  59.  
  60. -- part 3 (button)
  61. -- low flags: 00
  62. -- high flags: A002
  63. -- rect: left=56 top=134 right=154 bottom=222
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 1
  67. -- font id: 0
  68. -- text size: 12
  69. -- style flags: 0
  70. -- line height: 16
  71. -- part name: Preparing data to enter
  72. ----- HyperTalk script -----
  73. on mouseUp
  74.   get word 1 of the short name of the target
  75.   visual venetian blinds to gray
  76.   visual venetian blinds
  77.   go card it
  78. end mouseUp
  79.  
  80.  
  81.  
  82. -- part 4 (button)
  83. -- low flags: 00
  84. -- high flags: A002
  85. -- rect: left=56 top=181 right=201 bottom=222
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: Entering expenses
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   get word 1 of the short name of the target
  97.   visual venetian blinds to gray
  98.   visual venetian blinds
  99.   go card it
  100. end mouseUp
  101.  
  102.  
  103.  
  104. -- part 5 (button)
  105. -- low flags: 00
  106. -- high flags: A002
  107. -- rect: left=56 top=230 right=250 bottom=222
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 1
  111. -- font id: 0
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: Deleting expenses
  116. ----- HyperTalk script -----
  117. on mouseUp
  118.   get word 1 of the short name of the target
  119.   visual venetian blinds to gray
  120.   visual venetian blinds
  121.   go card it
  122. end mouseUp
  123.  
  124.  
  125.  
  126. -- part 6 (button)
  127. -- low flags: 00
  128. -- high flags: A002
  129. -- rect: left=56 top=279 right=299 bottom=222
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 0 / 0
  132. -- text alignment: 1
  133. -- font id: 0
  134. -- text size: 12
  135. -- style flags: 0
  136. -- line height: 16
  137. -- part name: Changing amounts
  138. ----- HyperTalk script -----
  139. on mouseUp
  140.   get word 1 of the short name of the target
  141.   visual venetian blinds to gray
  142.   visual venetian blinds
  143.   go card it
  144. end mouseUp
  145.  
  146.  
  147.  
  148. -- part 7 (button)
  149. -- low flags: 00
  150. -- high flags: 0000
  151. -- rect: left=217 top=307 right=339 bottom=254
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 20086 / 20086
  154. -- text alignment: 1
  155. -- font id: 0
  156. -- text size: 12
  157. -- style flags: 0
  158. -- line height: 16
  159. -- part name: PreviousCard
  160. ----- HyperTalk script -----
  161. on mouseUp
  162.   visual venetian blinds to gray
  163.   visual venetian blinds
  164.   go previous card
  165. end mouseUp
  166.  
  167.  
  168.  
  169. -- part 8 (button)
  170. -- low flags: 00
  171. -- high flags: 0000
  172. -- rect: left=253 top=307 right=339 bottom=290
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 20087 / 20087
  175. -- text alignment: 1
  176. -- font id: 0
  177. -- text size: 12
  178. -- style flags: 0
  179. -- line height: 16
  180. -- part name: NextCard
  181. ----- HyperTalk script -----
  182. on mouseUp
  183.   visual venetian blinds to gray
  184.   visual venetian blinds
  185.   go next card
  186. end mouseUp
  187.  
  188.  
  189.  
  190. -- part 9 (button)
  191. -- low flags: 00
  192. -- high flags: 0000
  193. -- rect: left=462 top=307 right=339 bottom=499
  194. -- title width / last selected line: 0
  195. -- icon id / first selected line: 16816 / 16816
  196. -- text alignment: 1
  197. -- font id: 0
  198. -- text size: 12
  199. -- style flags: 0
  200. -- line height: 16
  201. -- part name: PopCard
  202. ----- HyperTalk script -----
  203. on mouseUp
  204.   visual barn door close slowly to gray
  205.   visual barn door open slowly
  206.   pop card
  207. end mouseUp
  208.  
  209.  
  210.  
  211. -- part 10 (button)
  212. -- low flags: 00
  213. -- high flags: A002
  214. -- rect: left=286 top=87 right=107 bottom=452
  215. -- title width / last selected line: 0
  216. -- icon id / first selected line: 0 / 0
  217. -- text alignment: 1
  218. -- font id: 0
  219. -- text size: 12
  220. -- style flags: 0
  221. -- line height: 16
  222. -- part name: Viewing expense data
  223. ----- HyperTalk script -----
  224. on mouseUp
  225.   get word 1 of the short name of the target
  226.   visual venetian blinds to gray
  227.   visual venetian blinds
  228.   go card it
  229. end mouseUp
  230.  
  231.  
  232.  
  233. -- part 11 (button)
  234. -- low flags: 00
  235. -- high flags: A002
  236. -- rect: left=286 top=134 right=154 bottom=452
  237. -- title width / last selected line: 0
  238. -- icon id / first selected line: 0 / 0
  239. -- text alignment: 1
  240. -- font id: 0
  241. -- text size: 12
  242. -- style flags: 0
  243. -- line height: 16
  244. -- part name: Recalculating
  245. ----- HyperTalk script -----
  246. on mouseUp
  247.   get word 1 of the short name of the target
  248.   visual venetian blinds to gray
  249.   visual venetian blinds
  250.   go card it
  251. end mouseUp
  252.  
  253.  
  254.  
  255. -- part 12 (button)
  256. -- low flags: 00
  257. -- high flags: A002
  258. -- rect: left=286 top=181 right=201 bottom=452
  259. -- title width / last selected line: 0
  260. -- icon id / first selected line: 0 / 0
  261. -- text alignment: 1
  262. -- font id: 0
  263. -- text size: 12
  264. -- style flags: 0
  265. -- line height: 16
  266. -- part name: Estimating bills
  267. ----- HyperTalk script -----
  268. on mouseUp
  269.   get word 1 of the short name of the target
  270.   visual venetian blinds to gray
  271.   visual venetian blinds
  272.   go card it
  273. end mouseUp
  274.  
  275.  
  276.  
  277. -- part 13 (button)
  278. -- low flags: 00
  279. -- high flags: A002
  280. -- rect: left=286 top=230 right=250 bottom=452
  281. -- title width / last selected line: 0
  282. -- icon id / first selected line: 0 / 0
  283. -- text alignment: 1
  284. -- font id: 0
  285. -- text size: 12
  286. -- style flags: 0
  287. -- line height: 16
  288. -- part name: Choosing a start month
  289. ----- HyperTalk script -----
  290. on mouseUp
  291.   get word 1 of the short name of the target
  292.   visual venetian blinds to gray
  293.   visual venetian blinds
  294.   go card it
  295. end mouseUp
  296.  
  297.  
  298.  
  299. -- part 14 (button)
  300. -- low flags: 00
  301. -- high flags: A002
  302. -- rect: left=286 top=279 right=299 bottom=452
  303. -- title width / last selected line: 0
  304. -- icon id / first selected line: 0 / 0
  305. -- text alignment: 1
  306. -- font id: 0
  307. -- text size: 12
  308. -- style flags: 0
  309. -- line height: 16
  310. -- part name: Using Stabilizer's info
  311. ----- HyperTalk script -----
  312. on mouseUp
  313.   get word 1 of the short name of the target
  314.   visual venetian blinds to gray
  315.   visual venetian blinds
  316.   go card it
  317. end mouseUp
  318.  
  319.  
  320.  
  321. -- part 15 (button)
  322. -- low flags: 00
  323. -- high flags: A002
  324. -- rect: left=446 top=14 right=64 bottom=484
  325. -- title width / last selected line: 0
  326. -- icon id / first selected line: 11123 / 11123
  327. -- text alignment: 1
  328. -- font id: 0
  329. -- text size: 12
  330. -- style flags: 0
  331. -- line height: 16
  332. -- part name: Link
  333. ----- HyperTalk script -----
  334. on mouseUp
  335.   answer "Link The Stabilizer with your Home stack?" with "Cancel" or "Yes"
  336.   if it = "Yes" then
  337.     set cursor to 4
  338.     push card
  339.     get the userLevel
  340.     put it into saveLevel
  341.     if it < 4 then set the userLevel to 5
  342.     set lockScreen to true
  343.     go card "About"
  344.     show button 6
  345.     choose button tool
  346.     click at the loc of button 6
  347.     doMenu "Copy button"
  348.     hide button 6
  349.     pop card
  350.     push card
  351.     set lockScreen to false
  352.     visual barn door close slowly to gray
  353.     visual barn door open slowly
  354.     go stack "Home"
  355.     set loc of msg to 15,30
  356.     put "Click where you want The Stabilizer button"
  357.     set cursor to 3
  358.     repeat until the mouse is down
  359.     end repeat
  360.     get the mouseLoc
  361.     set cursor to 4
  362.     doMenu "Paste Button"
  363.     set the loc of button "The Stabilizer" to it
  364.     hide msg
  365.     choose browse tool
  366.     set the userLevel to saveLevel
  367.     visual barn door close slowly to gray
  368.     visual barn door open slowly
  369.     pop card
  370.   end if
  371. end mouseUp
  372.  
  373.  
  374.  
  375. -- part 16 (button)
  376. -- low flags: 00
  377. -- high flags: A002
  378. -- rect: left=336 top=314 right=332 bottom=408
  379. -- title width / last selected line: 0
  380. -- icon id / first selected line: 0 / 0
  381. -- text alignment: 1
  382. -- font id: 0
  383. -- text size: 12
  384. -- style flags: 0
  385. -- line height: 16
  386. -- part name: Menu Bar
  387. ----- HyperTalk script -----
  388. on mouseUp
  389.   show card field "Menu"
  390. end mouseUp
  391.  
  392.  
  393.  
  394. -- part 17 (field)
  395. -- low flags: 81
  396. -- high flags: 2004
  397. -- rect: left=44 top=129 right=205 bottom=463
  398. -- title width / last selected line: 0
  399. -- icon id / first selected line: 0 / 0
  400. -- text alignment: 0
  401. -- font id: 3
  402. -- text size: 12
  403. -- style flags: 0
  404. -- line height: 16
  405. -- part name: Menu
  406. ----- HyperTalk script -----
  407. on mouseUp
  408.   hide card field "Menu"
  409. end mouseUp
  410.  
  411.  
  412.  
  413. -- part 18 (button)
  414. -- low flags: 00
  415. -- high flags: A002
  416. -- rect: left=84 top=314 right=332 bottom=183
  417. -- title width / last selected line: 0
  418. -- icon id / first selected line: 0 / 0
  419. -- text alignment: 1
  420. -- font id: 0
  421. -- text size: 12
  422. -- style flags: 0
  423. -- line height: 16
  424. -- part name: The Stabilizer
  425. ----- HyperTalk script -----
  426. on mouseUp
  427.   visual barn door close slowly to gray
  428.   visual barn door open slowly
  429.   go card "Expenses"
  430. end mouseUp
  431.  
  432.  
  433.  
  434. -- part contents for card part 17
  435. ----- text -----
  436. The Menu Bar is hidden in this stack in order to have more space on the cards.  Also the cards look better without it.  If you need the Menu Bar at any time just hold down the command key and press the space bar.  The same procedure will hide the Menu Bar.